home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / net / AmiComSys.lha / AmiComSys / rexx / Talk.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-08-18  |  649 b   |  21 lines
  1. /* ARexx script to Talk someone */
  2. /* For use with AmiComSys 1.12+ */
  3. /* Talk must be in the AMITCP:bin directory */
  4.  
  5. ADDRESS AMICOMSYS;
  6. OPTIONS RESULTS;
  7.  
  8. GET stem info. CLIENTLIST;
  9. /* "stem info." inserts the results to the structure 'info.'. */
  10. /* "var s" would have inserted all the results to one string in s. */
  11. /* "CLIENTLIST": We want to read the client list information. */
  12. s=info.selected;
  13. If Show('p','AMTALK')=0 Then Do
  14.     ADDRESS COMMAND 'c:run >NIL: imp:test/arkiv/amtalk/amtalk' 
  15.     WaitForPort AMTALK
  16. End;
  17. ADDRESS COMMAND 'rx AMITCP:bin/talk '||info.usernames.s||'@'||info.hostnames.s;
  18. /* Start the talk arexx script for AmTalk */
  19.  
  20. EXIT;
  21.